home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Interactive 1 / CD-Rom Interactive (magazine) coverdisc (Disc 1, October, 1994).iso / QT / MSDETECT.INC < prev    next >
Text File  |  1994-07-18  |  22KB  |  673 lines
  1.  
  2. rem ---------------------------------------------------------------------
  3. rem
  4. rem MSDETECT.INC - MSSETUP Include
  5. rem
  6. rem                Version 1.0
  7. rem
  8. rem                (c) 1988-1992 Apple Computer, Inc. All Rights Reserved.
  9. rem
  10. rem ---------------------------------------------------------------------
  11.  
  12. '**************************************************************************
  13. '*************************  Setup Detect API's  ***************************
  14. '**************************************************************************
  15.  
  16. ''detect
  17.  
  18. DECLARE FUNCTION CbGetVersionOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  19. DECLARE FUNCTION LGetVersionNthField LIB "msdetstf.dll" (szVersion$, nField%) AS LONG
  20. DECLARE FUNCTION LcbGetSizeOfFile LIB "msdetstf.dll" (szFile$) AS LONG
  21. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  22. DECLARE FUNCTION FGetLocalHardDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  23. DECLARE FUNCTION FGetRemovableDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  24. DECLARE FUNCTION FGetNetworkDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  25. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  26. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  27. DECLARE FUNCTION FIsValidDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  28. DECLARE FUNCTION FIsLocalHardDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  29. DECLARE FUNCTION FIsRemoveDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  30. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  31. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  32. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  33. DECLARE FUNCTION CbGetDateOfFile LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  34. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  35. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  36. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  37. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  38. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  39. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  40. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  41. DECLARE FUNCTION FGetParallelPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  42. DECLARE FUNCTION FGetSerialPortsList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  43. DECLARE FUNCTION FHas87MathChip LIB "msdetstf.dll" AS INTEGER
  44. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  45. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  46. DECLARE FUNCTION WGetConfigSmartdrvSize LIB "msdetstf.dll" AS INTEGER
  47. DECLARE FUNCTION WGetConfigRamdriveSize LIB "msdetstf.dll" AS INTEGER
  48. DECLARE FUNCTION WGetConfigNumBuffers LIB "msdetstf.dll" AS INTEGER
  49. DECLARE FUNCTION WGetConfigNumFiles LIB "msdetstf.dll" AS INTEGER
  50. DECLARE FUNCTION WGetConfigLastDrive LIB "msdetstf.dll" AS INTEGER
  51. DECLARE FUNCTION FIsDriverInConfig LIB "msdetstf.dll" (szDrv$) AS INTEGER
  52. DECLARE FUNCTION CbFindTargetOnEnvVar LIB "msdetstf.dll" (szFile$, szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  53. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  54. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  55. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  56.  
  57.  
  58.  
  59. '*************************************************************************
  60. '****************  Detect Basic Wrapper Declarations  ********************
  61. '*************************************************************************
  62.  
  63.  
  64. '' detect
  65.  
  66. DECLARE FUNCTION IsDriveValid (szDrive$) AS INTEGER
  67. DECLARE FUNCTION IsDriveLocalHard (szDrive$) AS INTEGER
  68. DECLARE FUNCTION IsDriveRemovable (szDrive$) AS INTEGER
  69. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  70. DECLARE SUB GetValidDrivesList (szSymbol$)
  71. DECLARE SUB GetLocalHardDrivesList (szSymbol$)
  72. DECLARE SUB GetRemovableDrivesList (szSymbol$)
  73. DECLARE SUB GetNetworkDrivesList (szSymbol$)
  74. DECLARE FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  75. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  76.  
  77. DECLARE FUNCTION GetDOSMajorVersion AS INTEGER
  78. DECLARE FUNCTION GetDOSMinorVersion AS INTEGER
  79. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  80. DECLARE FUNCTION GetNumWinApps AS INTEGER
  81.  
  82. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  83. DECLARE FUNCTION GetDateOfFile (szFile$) AS STRING
  84. DECLARE FUNCTION GetYearFromDate (szDate$) AS INTEGER
  85. DECLARE FUNCTION GetMonthFromDate (szDate$) AS INTEGER
  86. DECLARE FUNCTION GetDayFromDate (szDate$) AS INTEGER
  87. DECLARE FUNCTION GetHourFromDate (szDate$) AS INTEGER
  88. DECLARE FUNCTION GetMinuteFromDate (szDate$) AS INTEGER
  89. DECLARE FUNCTION GetSecondFromDate (szDate$) AS INTEGER
  90. DECLARE FUNCTION GetVersionOfFile (szFile$) AS STRING
  91. DECLARE FUNCTION GetVersionNthField (szVersion$, nField%) AS LONG
  92. DECLARE FUNCTION GetSizeOfFile (szFile$) AS LONG
  93. DECLARE FUNCTION FindTargetOnEnvVar (szFile$, szEnvVar$) AS STRING
  94. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  95. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  96.  
  97. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  98. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  99. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  100.  
  101. DECLARE FUNCTION GetConfigSmartdrvSize AS INTEGER
  102. DECLARE FUNCTION GetConfigRamdriveSize AS INTEGER
  103. DECLARE FUNCTION GetConfigNumBuffers AS INTEGER
  104. DECLARE FUNCTION GetConfigNumFiles AS INTEGER
  105. DECLARE FUNCTION GetConfigLastDrive AS STRING
  106. DECLARE FUNCTION IsDriverInConfig (szDrv$) AS INTEGER
  107.  
  108. DECLARE FUNCTION GetProcessorType AS INTEGER
  109. DECLARE SUB GetParallelPortsList (szSymbol$)
  110. DECLARE SUB GetSerialPortsList (szSymbol$)
  111. DECLARE FUNCTION Has87MathChip AS INTEGER
  112. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  113. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  114.  
  115.  
  116. '*************************************************************************
  117. FUNCTION IsDriveValid (szDrive$) STATIC  AS INTEGER
  118. '$ifdef DEBUG
  119.     if FValidDrive(szDrive$) = 0 then
  120.         BadArgErr 1, "IsDriveValid", szDrive$
  121.     end if
  122. '$endif ''DEBUG
  123.     IsDriveValid = FIsValidDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  124. END FUNCTION
  125.  
  126.  
  127. '*************************************************************************
  128. FUNCTION IsDriveLocalHard (szDrive$) STATIC  AS INTEGER
  129. '$ifdef DEBUG
  130.     if FValidDrive(szDrive$) = 0 then
  131.         BadArgErr 1, "IsDriveLocalHard", szDrive$
  132.     end if
  133. '$endif ''DEBUG
  134.     IsDriveLocalHard = FIsLocalHardDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  135. END FUNCTION
  136.  
  137.  
  138. '*************************************************************************
  139. FUNCTION IsDriveRemovable (szDrive$) STATIC  AS INTEGER
  140. '$ifdef DEBUG
  141.     if FValidDrive(szDrive$) = 0 then
  142.         BadArgErr 1, "IsDriveRemovable", szDrive$
  143.     end if
  144. '$endif ''DEBUG
  145.     IsDriveRemovable = FIsRemoveDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  146. END FUNCTION
  147.  
  148.  
  149. '*************************************************************************
  150. FUNCTION IsDriveNetwork (szDrive$) STATIC  AS INTEGER
  151. '$ifdef DEBUG
  152.     if FValidDrive(szDrive$) = 0 then
  153.         BadArgErr 1, "IsDriveNetwork", szDrive$
  154.     end if
  155. '$endif ''DEBUG
  156.     IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  157. END FUNCTION
  158.  
  159.  
  160. '*************************************************************************
  161. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  162. '$ifdef DEBUG
  163.     if FValidDrive(szDrive$) = 0 then
  164.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  165.     end if
  166. '$endif ''DEBUG
  167.     GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  168. END FUNCTION
  169.  
  170.  
  171. '*************************************************************************
  172. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  173. '$ifdef DEBUG
  174.     if FValidDrive(szDrive$) = 0 then
  175.         BadArgErr 1, "GetFreeSpaceFor